home *** CD-ROM | disk | FTP | other *** search
/ Planet Source Code Jumbo …e CD Visual Basic 1 to 7 / 5_2007-2008.ISO / data / Zips / Vista_prog20873410162007.psc / Vista Progress Bar controls / Animated Vista ProgressBar with red color / Form1.frm next >
Text File  |  2005-10-16  |  2KB  |  65 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Vista Progressbar"
  4.    ClientHeight    =   2070
  5.    ClientLeft      =   120
  6.    ClientTop       =   420
  7.    ClientWidth     =   4560
  8.    LinkTopic       =   "Form1"
  9.    MaxButton       =   0   'False
  10.    ScaleHeight     =   2070
  11.    ScaleWidth      =   4560
  12.    StartUpPosition =   2  'CenterScreen
  13.    Begin VB.CommandButton Command1 
  14.       Caption         =   "Turn to red"
  15.       BeginProperty Font 
  16.          Name            =   "Tahoma"
  17.          Size            =   8.25
  18.          Charset         =   0
  19.          Weight          =   400
  20.          Underline       =   0   'False
  21.          Italic          =   0   'False
  22.          Strikethrough   =   0   'False
  23.       EndProperty
  24.       Height          =   375
  25.       Left            =   120
  26.       TabIndex        =   2
  27.       Top             =   1560
  28.       Width           =   4215
  29.    End
  30.    Begin Project1.VistaProg VistaProg1 
  31.       Height          =   225
  32.       Left            =   120
  33.       TabIndex        =   0
  34.       Top             =   1200
  35.       Width           =   4215
  36.       _ExtentX        =   7435
  37.       _ExtentY        =   397
  38.    End
  39.    Begin VB.Label Label1 
  40.       Caption         =   "The Progressbar will be red if the value is beyond or equals to 80%"
  41.       BeginProperty Font 
  42.          Name            =   "Tahoma"
  43.          Size            =   8.25
  44.          Charset         =   0
  45.          Weight          =   400
  46.          Underline       =   0   'False
  47.          Italic          =   0   'False
  48.          Strikethrough   =   0   'False
  49.       EndProperty
  50.       Height          =   615
  51.       Left            =   240
  52.       TabIndex        =   1
  53.       Top             =   360
  54.       Width           =   4095
  55.    End
  56. End
  57. Attribute VB_Name = "Form1"
  58. Attribute VB_GlobalNameSpace = False
  59. Attribute VB_Creatable = False
  60. Attribute VB_PredeclaredId = True
  61. Attribute VB_Exposed = False
  62. Private Sub Command1_Click()
  63. VistaProg1.Value = 85
  64. End Sub
  65.